Attribute VB_Name = "ModCallback"
Option Explicit

Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
    On Error Resume Next
    Call frmChange.ChangeDesktop
End Sub

